COMMENT ⊗   VALID 00007 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE SIMMER
C00004 00003		BMI
C00005 00004		RTS
C00006 00005		BCC
C00007 00006		CPYIM
C00008 00007		BEQ
C00009 ENDMK
C⊗;
	TITLE SIMMER
	B←2 ↔ C←3 ↔ D←4 ↔ E←5 ↔ P←17
	PC←10 ↔ PS←11 ↔ SP←12 ↔ A←13
	X←14 ↔ Y←15 ↔ MEM←2000

INSTBL:	BRK
	[ORAINX:PUSHJ P,[INX:	PUSHJ P,[DFTCH:	HRRZ MEM(PC)
						AOJ PC,
						CAIL PC,200000
						SETZ PC,
						POPJ P,]
				
	UDO
	UDO
	UDO
	ORAZ
	ASLZ
	UDO

	[PHP:	HRRZ PS
		PUSHJ P,[PUTCH:	SOJGE SP
				HRRZI SP,377
				HRRZM MEM+400(SP)
				POPJ P,]
		POPJ P,]
	ORAIM
	ASLAC
	UDO
	UDO
	ORAAB
	ASLAB
	UDO

	BPL
	ORAINY
	UDO
	UDO
	UDO
	ORAZX
	ASLZX
	UDO

	CLC
	ORAABY
	UDO
	UDO
	UDO
	ORAABX
	ASLABX
	UDO

	JSR
	ANDINX
	UDO
	UDO
	BITZ
	ANDZ
	ROLZ
	UDO

	PLP
	ANDIM
	ROLAC
	UDO
	BITAB
	ANDAB
	ROLAB
	UDO
	BMI
	ANDINY
	UDO
	UDO
	UDO
	ANDZX
	ROLZX
	UDO

	SEC
	ANDABY
	UDO
	UDO
	UDO
	ANDABX
	ROLABX
	UDO
	
	RTI
	EORINX
	UDO
	UDO
	UDO
	EORZ
	LSRZ
	UDO

	PHA
	EORIM
	LSRAC
	UDO
	JMPAB
	EORAB
	LSRAB
	UDO

	BVC
	EORINY
	UDO
	UDO
	UDO
	EORZX
	LSRZX
	UDO

	CLI
	EORABY
	UDO
	UDO
	UDO
	EORABX
	LSRABX
	UDO
	RTS
	ADCINX
	UDO
	UDO
	UDO
	ADCZ
	UDO
	UDO

	PLA
	ADCIM
	UDO
	UDO
	JMPIN
	ADCAB
	UDO
	UDO

	BVS
	ADCINY
	UDO
	UDO
	UDO
	ADCZX
	UDO
	UDO
	
	SEI
	ADCABY
	UDO
	UDO
	UDO
	ADCABX
	UDO
	UDO

	UDO
	STAINX
	UDO
	UDO
	STYZ
	STAZ
	STXZ
	UDO

	DEY
	UDO
	TXA
	UDO
	STYAB
	STAAB
	STXAB
	UDO
	BCC
	STAINY
	UDO
	UDO
	STYZX
	STAZX
	STXZY
	UDO

	TYA
	STAABY
	TXS
	UDO
	UDO
	STAABX
	UDO
	UDO

	LDYIM
	LDAINX
	LDXIM
	UDO
	LDYZ
	LDAZ
	LDXZ
	UDO

	TAY
	LDAIM
	TAX
	UDO
	LDYAB
	LDAAB
	LDXAB
	UDO

	BCS
	LDAINY
	UDO
	UDO
	LDYZX
	LDAZX
	LDXZY
	UDO

	CLV
	LDAABY
	TSX
	UDO
	LDYABX
	LDAABX
	LDXABY
	UDO
	CPYIM
	CMPINX
	UDO
	UDO
	CPYZ
	CMPZ
	DECZ
	UDO

	INY
	CMPIM
	DEX
	UDO
	CPYAB
	CMPAB
	DECAB
	UDO

	BNE
	CMPINX
	UDO
	UDO
	CMPZ
	SBCZ
	INCZ
	UDO

	CLD
	CMPABY
	UDO
	UDO
	UDO
	CMPABX
	DECABX
	UDO

	CPXIM
	SBCINY
	UDO
	UDO
	CPXZ
	SBCZ
	INCZ
	UDO

	INX
	SBCIM
	NOP
	UDO
	CPXAB
	SBCAB
	INCAB
	UDO
	BEQ
	SBCINY
	UDO
	UDO
	UDO
	SBCZX
	INCZX
	UDO

	SED
	SBCABY
	UDO
	UDO
	UDO
	SBCABX
	INCABX
	UDO

PCP:	1000,,MEM

XCUTE:	LDB B,PCP
	PUSHJ P,INSTBL(B)
	JRST XCUTE
	

MAD:	1000,,MEM

FETCH:	
	LDB B,MAD	;GET IT
	SKIPE B		;CK ZERO
	TRO PS,100
	TRNE B,200	;CK NEG
	TRO PS,200
	POPJ P,